home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / drivers / f1280501.zip / INSTALL.DAT < prev    next >
Text File  |  1993-06-21  |  49KB  |  2,139 lines
  1. /*-
  2.   File Name: install.dat
  3.  
  4.   History: Robert Gilsdorf (August 27, 1992) File created
  5.  
  6.   Description: This is a script file that automates the installation process 
  7.            of the Fahrenheit VA display drivers.
  8. */
  9. @DefineProject
  10.     @Name           = "Fahrenheit"
  11.     @Version        = "5.01"
  12.     @Immediate      = 1 
  13.     @Subdir         = "\\"
  14.     @OutDrive       = C
  15.     @AssumeHardDisk = 1
  16. @EndProject
  17.  
  18. @DefineVars
  19.  @Dir @orcdir            = "\\ORCHID\\"
  20.  @Qstring @msgDDI       = "Display Driver Installation"
  21.  @Qstring @msgDrive     = "Please Select Destination Drive:"
  22.  @Qstring @msgDir       = "Please Enter a Directory name or select ENTER to accept default."
  23.  @Qstring @msgPSAV      = "Please Select Version:"
  24.  @Qstring @msgPSAA      = "Please Select an Application:"
  25.  @Qstring @msgPSAO      = "Please Select an Option:"
  26.  @Qstring @msgDDNE      = "does not exist."
  27.  @Qstring @msgCont      = "If you choose to continue, one will be created."
  28.  @Qstring @msgNoFile    = "Some files are missing in your input directory:"
  29.  @Qstring @msgNPI       = "may not be properly installed."
  30.  @Qstring @Reenter      = " Enter Again"
  31.  @Qstring @Cont         = "  Continue  "
  32.  @Qstring @NameWin      = "Microsoft Windows"
  33.  @Qstring @NameCADsys   = "Computer Aided Design"
  34.  @Qstring @NameACAD     = "AutoCAD"
  35.  @Qstring @NameCADKey   = "CADKey"
  36.  @Qstring @NameCADvance = "CADVance"
  37.  @Qstring @NameDataCAD  = "DataCAD"
  38.  @Qstring @NameGenCADD  = "Generic CADD"
  39.  @Qstring @NameMicroCAD = "MicroStation"
  40.  @Qstring @NameVersaCAD = "VersaCAD"
  41.  @Qstring @NameDesk     = "Desktop Publishing"
  42.  @Qstring @NameGem      = "GEM Desktop"
  43.  @Qstring @NameVentura  = "Ventura Publisher"
  44.  @Qstring @NameLotus    = "Lotus 1-2-3"
  45.  @Qstring @NameWord     = "Word Processing"
  46.  @Qstring @NameWP       = "WordPerfect"
  47.  @Qstring @NameMSWord   = "Microsoft Word"
  48.  @Qstring @NameUtil     = "Orchid Utilities"
  49.  @Qstring @NameMore     = "More...."
  50.  @Qstring @NameOS2       = "IBM OS/2"
  51.  @Qstring @NameSCO       = "SCO Unix"
  52.  @Qstring @NameIntractv  = "Interactive Unix"
  53.  @Qstring @NameOtherp    = "Other Orchid Products"
  54.  @Qstring @NameTchsupt   = "Technical Support"
  55.  @Qstring @NameSample    = "Build Voice Notes Playback Diskette" 
  56.  @EndVars
  57.  
  58. @Display
  59. @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  60.   @Goto MenuJumper
  61. @Elseif (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  62.   @Goto MenuJumper
  63. @Elseif (@CheckCard ("c000", "00F6", "Fahrenheit 1280 Plus") == 1)
  64.   @Goto MenuJumper
  65. @Else
  66.  @Cls
  67.  
  68.         █████████████████ ERROR ████████████████
  69.         █                                      █
  70.         █  An Orchid Fahrenheit video adapter  █
  71.         █  is not detected in your system.     █
  72.         █                                      █
  73.         █  If you choose to continue this      █
  74.         █  installation, the driver may not    █
  75.         █  respond correctly.                  █
  76.         █                                      █
  77.         █  If you are using a Network Server,  █
  78.         █  Just PRESS <ENTER> to continue.     █
  79.         █                                      █
  80.         █  PRESS F3 TO ABORT INSTALLATION      █
  81.         █                                      █
  82.         █                                      █
  83.         █                                      █
  84.         ████████████████████████████████████████
  85.  
  86.  @Pause
  87. @Endif
  88.  
  89.  
  90.     
  91.  
  92. MenuJumper:
  93. @cls
  94. @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  95.  
  96.  
  97.  
  98.  
  99.  
  100.            Orchid Fahrenheit VA Series Video Adapter
  101.  
  102.  
  103.               Display Driver Installation Program
  104.  
  105.  
  106.                    Disk Release 5.01
  107.  
  108.  
  109.  
  110.  
  111.   @Pause
  112. @Elseif (@CheckCard ("C000", "011C", "Fahrenheit 1280") == 1)
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.               Orchid Fahrenheit 1280 Video Adapter
  120.  
  121.  
  122.               Display Driver Installation Program
  123.  
  124.  
  125.                    Disk Release 5.01
  126.  
  127.  
  128.  
  129.  
  130.  
  131.   @Pause
  132.  
  133. @Elseif (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  134.  
  135.  
  136.  
  137.  
  138.  
  139.  
  140.            Orchid Fahrenheit 1280 Plus Video Adapter
  141.  
  142.  
  143.               Display Driver Installation Program
  144.  
  145.  
  146.                    Disk Release 5.01
  147.  
  148.  
  149.  
  150.  
  151.   @Pause
  152.  
  153.  
  154. @Cls
  155. @Endif
  156.  
  157. @If (@Chk2e8)
  158.  
  159.         ████████████████ Warning ███████████████
  160.         █                                      █
  161.         █  Fax Modem OR Serial Port OR Scanner █
  162.         █  Adapter is utlizing the I/O port of █
  163.         █  Fahrenheit Video Adapter.           █
  164.         █                                      █
  165.         █  Please reconfigure your Fax Modem   █
  166.         █  OR Serial Port OR Scanner at other  █
  167.         █  I/O port address, i.e. Avoid I/O    █
  168.         █  port address 2e8.                   █
  169.         █                                      █
  170.         █                                      █
  171.         █  You may continue the Installation,  █
  172.         █  and reconfigure your I/O port       █
  173.         █  address after Installation is       █
  174.         █  completed.                          █
  175.         █                                      █
  176.         ████████████████████████████████████████
  177. @Pause
  178. @Endif
  179.  
  180. @EndDisplay
  181.  
  182.  
  183.  
  184. @If ("@Indrive"=="C")
  185.     @Display
  186.  
  187.     The Install Program must be run from a Floppy Drive.  Please use the  
  188.     <ESC> key and start over from the Floppy drive.
  189.  
  190.      @Pause
  191.     @Abort
  192.    @EndDisplay
  193. @EndIf
  194.  
  195.  
  196. MenuMain:
  197.  @FlushOptions
  198.  @EnableF1(1)
  199.  @GetOption
  200.  @Cls
  201.   @Option 1000 = "@NameWin"
  202.   @Option 4000 = "@NameLotus"
  203.   @Option 2000 = "@NameCADsys"
  204.   @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  205.    @Option 3000 = "@NameDesk"  
  206.   @Endif
  207.   @Option 5000 = "@NameWord"
  208.   @Option 5500 = "@NameSample"
  209.   @Option 6000 = "@NameUtil"
  210.   @Option 7000 = "@NameMore"
  211.  
  212.  @EndOption
  213.  
  214.  @If (@Esc)
  215.      @Exit
  216.  @Elseif (@KeyF1)
  217.      @Goto MenuMainHelp
  218.  @ElseIf (1000 [= @Option)
  219.      @Goto MenuWin
  220.  @ElseIf (2000 [= @Option)
  221.      @Goto MenuCADsys
  222.  @ElseIf (3000 [= @Option)
  223.      @Goto MenuDesktop
  224.  @ElseIf (4000 [= @Option)
  225.      @Goto MenuLotus
  226.  @ElseIf (5000 [= @Option)
  227.      @Goto MenuWordProcess
  228.  @ElseIf (5500 [= @Option)
  229.      @Goto MenuSample
  230.  @ElseIf (6000 [= @Option)
  231.      @Goto MenuUtility
  232.  @ElseIf (7000 [= @Option)
  233.      @Goto MenuInfo
  234.  @Else
  235.      @Goto MenuMain
  236.  @Endif
  237.  
  238.  
  239. MenuInfo:
  240. @ClearOption(7010)
  241. @ClearOption(7020)
  242. @ClearOption(7030)
  243. @ClearOption(7040)
  244. @ClearOption(7045) 
  245. @ClearOption(7050)
  246.  @EnableF1(0)
  247.  @GetOption
  248.  @Cls
  249.     
  250.  
  251.  
  252.  
  253.  
  254.  
  255.  
  256.  
  257.  
  258.  
  259.  
  260.  
  261.  
  262.   @Option 7010 = "@NameOS2"
  263.   @Option 7020 = "@NameSCO"
  264.   @Option 7030 = "@NameIntractv"
  265.   @Option 7040 = "@NameOtherp"
  266.   @Option 7045 = "Other Orchid Video Products"
  267.   @Option 7050 = "@NameTchsupt"
  268.  
  269.  
  270.   @EndOption
  271.  
  272.  
  273.  @If (@Esc)
  274.      @Goto MenuMain
  275. @ElseIf (7010 [=@Option)
  276.      @Help ("@ExePath\\install.hlp", "HelpOS2", "EndOS2")
  277. @ElseIf (7020 [=@Option)
  278.      @Help ("@ExePath\\install.hlp", "HelpSCO", "EndSCO")
  279. @ElseIf (7030 [=@Option)
  280.      @Help ("@ExePath\\install.hlp", "HelpIntractv", "EndIntractv")
  281. @ElseIf (7040 [=@Option)
  282.      @Help ("@ExePath\\install.hlp", "HelpOtherp", "EndOtherp")
  283. @ElseIf (7045 [=@Option)
  284.      @Help ("@ExePath\\install.hlp", "HelpFah", "EndFah")
  285. @ElseIf (7050 [=@Option)
  286.      @Help ("@ExePath\\install.hlp", "HelpTchsupt", "EndTchsupt")
  287.  
  288. @endif
  289. @Goto MenuInfo
  290.  
  291.  
  292.  
  293. MenuMainHelp:
  294.  
  295. @If (1000 [= @Option)  
  296.   @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  297. @ElseIf (4000 [= @Option) 
  298.   @Help ("@ExePath\\install.hlp", "HelpLotus", "HelpLotusInst")
  299. @Elseif (2000 [= @Option) 
  300.   @Help ("@ExePath\\install.hlp", "HelpCADMain", "EndCADMain")
  301. @Elseif (3000 [= @Option) 
  302.   @Help ("@ExePath\\install.hlp", "HelpDeskMain", "EndDeskMain")
  303. @Elseif (5000 [= @Option) 
  304.   @Help ("@ExePath\\install.hlp", "HelpWordPMain", "EndWordPMain")
  305. @Elseif (5500 [= @Option) 
  306.   @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  307. @Elseif (6000 [= @Option) 
  308.   @Help ("@ExePath\\install.hlp", "HelpUtilMain", "EndUtilMain")
  309. @Elseif (7000 [= @Option) 
  310.   @Help ("@ExePath\\install.hlp", "HelpMore", "EndMore")
  311. @EndIf   
  312.  
  313. @Goto MenuMain
  314.  
  315.  
  316. MenuWin:
  317.  
  318. @ClearOption (1010) 
  319. @ClearOption (1020)
  320. @EnableF1(1)
  321. @GetOption @Cls
  322.  @NameWin @msgDDI
  323.  @msgPSAO
  324.  @Option 1010 = "Microsoft Windows Standard Installation"
  325.  @Option 1020 = "Microsoft Windows Network Server Installation"
  326. @EndOption
  327.  
  328. @If (@Esc)
  329.  @Goto MenuMain
  330. @ElseIf (@KeyF1)
  331.  @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin") 
  332.  @Goto MenuWin
  333. @Endif
  334.  
  335.  
  336. MenuWindow:
  337. @EnableF1(0)
  338. @GetOutDrive
  339.  @Suppress A
  340.  @Suppress B 
  341.  @Cls
  342.  @NameWin @msgDDI
  343.  @msgDrive
  344. @EndOutDrive
  345. @If (@Esc) @Goto MenuWin @EndIf
  346.  
  347. @GetSubdir
  348.  @Default = "\\WINDOWS"    
  349.  @Cls
  350.  @NameWin @msgDDI
  351.  @msgDir
  352.  
  353.  
  354. @EndSubdir
  355. @If (@Esc) @Goto MenuWindow @EndIf
  356.  
  357. @ClearOption(1)
  358. @ClearOption(2)
  359. @EnableF1(0)
  360. @GetOption
  361.  @LocalWindow (10,39) 
  362.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  363.   @Cls
  364.   @NameWin @msgDDI
  365.   @OutDrive:@SubDir @msgDDNE
  366.   @msgCont
  367.  @ElseIf (1020 [= @Option)
  368.   @Goto MenuCopyFileWin
  369.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\winver.exe" == 0) ||
  370.      (@Exists "@OutDrive:\\@SubDir\\win.ini" == 0))
  371.   @Cls
  372.   @NameWin @msgDDI
  373.   @msgNoFile
  374.   @OutDrive:@SubDir
  375.   @NameWin @msgNPI
  376.  @Else
  377.   @Goto MenuCopyFileWin
  378.  @EndIf
  379.  @Option 1 = "@Reenter"
  380.  @Option 2 = "@Cont"
  381. @EndOption
  382. @If ((@Esc) || (1 [= @Option))
  383.   @Goto MenuWindow
  384. @Endif
  385.  
  386.  
  387.  
  388.  
  389. MenuCopyFileWin:
  390. @DefineDisk
  391. @Label = "Disk #1"
  392. @BeginLib FAHDRVVA.001 
  393.  
  394.  @F orchidf.cpl  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  395.  @F orchidf.hlp  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  396.  @F orchidf.2gr  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  397.  @F orchidf.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  398.  @F orchidv.drv  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  399.  @F orckey.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  400.  @F magnify.exe  @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  401.  @F vmp_mm.dll   @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  402.  @F vctl.dll     @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  403.  @F orchhook.dll @O @OutDrive:\@SubDir\SYSTEM\*.*  @Option 1010
  404.  
  405.  @F orchidf.cpl  @O @OutDrive:\@SubDir\*.*  @Option 1020
  406.  @F orchidf.hlp  @O @OutDrive:\@SubDir\*.*  @Option 1020
  407.  @F orchidf.2gr  @O @OutDrive:\@SubDir\*.*  @Option 1020
  408.  @F orchidf.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
  409.  @F orchidv.drv  @O @OutDrive:\@SubDir\*.*  @Option 1020
  410.  @F orckey.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
  411.  @F magnify.exe  @O @OutDrive:\@SubDir\*.*  @Option 1020
  412.  @F vmp_mm.dll   @O @OutDrive:\@SubDir\*.*  @Option 1020
  413.  @F vctl.dll     @O @OutDrive:\@SubDir\*.*  @Option 1020
  414.  @F orchhook.dll @O @OutDrive:\@SubDir\*.*  @Option 1020
  415.  
  416.  
  417.  @If (@CheckCard ("C000", "00F6", "Fahrenheit VA") == 1)
  418.   @F orchnote.exe @O @OutDrive:\orchid\*.* 
  419.  @EndIf
  420.  
  421.  
  422.  @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  423.     @F orc91124.drv  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  424.  @Else
  425.     @F orc80124.drv  @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  426.  @Endif
  427.  
  428.  
  429.  @If (1020 [= @Option)   
  430.   @F orc91124.drv @O @OutDrive:\@SubDir\*.*
  431.   @F orc80124.drv @O @OutDrive:\@SubDir\*.* 
  432.  @Endif
  433.  
  434.  
  435.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  436.   @F orchid.exe  @O @OutDrive:\@SubDir\*.*
  437.   @F orchd30.inf @O @OutDrive:\@SubDir\SYSTEM\orchidf.inf
  438.   @F orchd30.386 @O @OutDrive:\@SubDir\SYSTEM\*.* 
  439.   @F orchd30.3gr @O @OutDrive:\@SubDir\SYSTEM\*.* 
  440.   @F fva.exe     @O @OutDrive:\@SubDir\SYSTEM\*.*
  441.  @Else
  442.   @F orchidf.inf @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  443.   @F orchidf.386 @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  444.   @F orchidf.3gr @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  445.   
  446.   @F orchidf.inf @O @OutDrive:\@SubDir\*.* @Option 1020
  447.   @F orchidf.386 @O @OutDrive:\@SubDir\*.* @Option 1020
  448.   @F orchidf.3gr @O @OutDrive:\@SubDir\*.* @Option 1020
  449.   
  450.   @F fva.exe     @O @OutDrive:\@SubDir\*.*
  451.  @Endif
  452.  
  453.  
  454.  
  455.  
  456. @EndLib 
  457. @EndDisk
  458.  
  459.  
  460.  
  461.  
  462.  
  463. @Display
  464.  
  465.  @Cls
  466.  @System "@OutDrive:\\@SubDir\\fva.exe"
  467.  @Delete ("@OutDrive:\\@SubDir\\fva.exe")
  468.  @Cls
  469.  
  470. @EndDisplay
  471.               
  472.  
  473.  @If (1020 [= @Option)
  474.    @Goto MenuVOICE
  475.  @Elseif (@CheckCard ("0000", "04e8", "Ç") == 0)
  476.    @Goto MenuModify
  477.  @Elseif (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  478.    @Goto MenuModify
  479.  @Else
  480. MenuVOICE:
  481.     @ClearOption(60) 
  482.     @ClearOption(61)  
  483.     @ClearOption(62)
  484.     @EnableF1(1)
  485.  
  486.     @GetOption
  487.      @LocalWindow (10,40)
  488.      @Cls
  489.      Would you like Voice Notes....
  490.      (Hit the <F1> Key for more information.)
  491.      (Network Server users, please read Help file <F1> Key.)
  492.      @Option 60 = "Loaded and INSTALLED in Windows"
  493.      @Option 61 = "Loaded, but NOT ACTIVATED in Windows"
  494.      @Option 62 = "NOT LOADED AT ALL!"
  495.     @EndOption
  496.  
  497.     @If (@Esc)
  498.       @Goto MenuVOICE
  499.     @Elseif (@KeyF1)
  500.       @Help ("@ExePath\\install.hlp","HelpVOICE","EndVOICE")
  501.     @Elseif (60 [= @Option)
  502.       @Goto MenuVOICENOTE
  503.     @Elseif (61 [= @Option)
  504.       @Goto MenuVOICENOTE
  505.     @Elseif (62 [= @Option)
  506.       @Goto MenuModify
  507.  @Endif
  508.    @Goto MenuVOICE 
  509.  @Endif   
  510.  
  511. MenuVOICENOTE:
  512. @EnableF1(0)
  513. @GetOutDrive
  514.  @Suppress A
  515.  @Suppress B 
  516.  @Cls
  517.  Voicenotes @msgDDI
  518.  @msgDrive
  519. @EndOutDrive
  520. @If (@Esc) @Goto MenuVoice @EndIf
  521.  
  522. @GetSubdir @orcdir
  523.  @Default = "\\ORCHID"    
  524.  @Cls
  525.  Voicenotes @msgDDI
  526.  @msgDir
  527.  
  528.  
  529. @EndSubdir
  530. @If (@Esc) @Goto MenuVOICENOTE @EndIf
  531.  
  532. @ClearOption(1)
  533. @ClearOption(2)
  534. @EnableF1(0)
  535. @GetOption
  536.  @LocalWindow (10,39) 
  537.  @If (@Exists "@OutDrive:\\@orcdir" == 0)
  538.   @Cls
  539.   Voicenote @msgDDI
  540.   @OutDrive:@SubDir @msgDDNE
  541.   @msgCont
  542.  @Else
  543.   @Goto MenuFileVoice
  544.  @EndIf
  545.  @Option 1 = "@Reenter"
  546.  @Option 2 = "@Cont"
  547. @EndOption
  548. @If ((@Esc) || (1 [= @Option))
  549.   @Goto MenuVOICENOTE
  550. @Endif
  551.    
  552. MenuFileVoice:
  553.    @DefineDisk
  554.     @Label = "Disk #1"
  555.     @BeginLib FAHDRVVA.001 
  556.    
  557.     @F orchnote.exe @O @OutDrive:\@orcdir\*.* 
  558.     @F vmp_mm.dll   @O @OutDrive:\@orcdir\*.* 
  559.     @F vctl.dll     @O @OutDrive:\@orcdir\*.* 
  560.     @F orchhook.dll @O @OutDrive:\@orcdir\*.* 
  561.     @F ovn.hlp      @O @OutDrive:\@orcdir\*.*
  562.     @F orckey.dll   @O @OutDrive:\@orcdir\*.*  
  563.     
  564.     @F orcsnd.drv   @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  565.     @F sndsetup.cpl @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  566.     @F sndsetup.hlp @O @OutDrive:\@SubDir\SYSTEM\*.* @Option 1010
  567.     
  568.     @F orcsnd.drv   @O @OutDrive:\@SubDir\*.* @Option 1020
  569.     @F sndsetup.cpl @O @OutDrive:\@SubDir\*.* @Option 1020
  570.     @F sndsetup.hlp @O @OutDrive:\@SubDir\*.* @Option 1020
  571.  
  572.     @F orchinst.exe @O @OutDrive:\@SubDir\*.*
  573.     @F orchinst.dat @O @OutDrive:\@SubDir\*.*
  574.     @F orcdde.dll   @O @OutDrive:\@SubDir\*.*
  575.     
  576.     @EndLib 
  577.    @EndDisk
  578.  
  579.  
  580. MenuModify: 
  581. @Display
  582.  @If (@CheckFile ("@OutDrive:\\@SubDir\\winver.exe", "207", "Windows Version 3.00"))
  583.   Modifying WIN.INI of Windows 3.0.
  584.   @DeleteStr ("@OutDrive:\\@SubDir\\win.ini", "windows", "run", "orchid.exe")
  585.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchid.exe", "APPEND")
  586.  @Elseif (@Exists "@OutDrive:\\@SubDir\\orchid.ini" == 0)
  587.   Modifying WIN.INI of Windows 3.1
  588.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "run=", "control.exe", "APPEND")
  589.  @Elseif (@Exists "@OutDrive:\\@SubDir\\progman.orc" == 0)
  590.   @CatFiles ("@OutDrive:\\@SubDir\\progman.ini", "@OutDrive:\\@SubDir\\progman.orc")
  591.  @Endif
  592.  
  593.  @If (60 [= @Option)
  594.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "StartUp", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  595.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  596.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  597.   @WriteFile ("@OutDrive:\\@SubDir\\system.ini", "drivers", "Wave=", "WAVE=ORCSND.DRV", "REPLACE")
  598.  @Endif
  599.  
  600.  @If (61 [= @Option)
  601.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "Group", "Group1=", "Group1=NoteUSED", "REPLACE")
  602.   @WriteFile ("@OutDrive:\\@SubDir\\orchinst.dat", "VoiceNote", "ItemCmd1=", "ItemCmd1=@OutDrive:\\@orcdir\\orchnote.exe", "REPLACE")
  603.   @WriteFile ("@OutDrive:\\@SubDir\\win.ini", "windows", "load=", "orchinst.exe", "APPEND")
  604.  @Endif
  605.  
  606.  @If (1020 [= @Option)
  607.   @WriteFile ("@OutDrive:\\@SubDir\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  608.   @Goto MenuWinEnd
  609.  @EndIf
  610.  
  611.  @If (@CheckCard ("0000", "04e8", "Ç") == 1)
  612.   @WriteFile ("@OutDrive:\\@SubDir\\system\\setup.inf","Installable.Drivers","FahrenheitVA", "FahrenheitVA = x:orcsnd.drv, \"wave\", \" Orchid Fahrenheit VA\", ,, ", "REPLACE")
  613.  @EndIf
  614.  
  615.  @If (@CheckCard ("c000", "00F6", "Fahrenheit VA") == 1)
  616.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv") 
  617.    @Cls
  618.  @Endif
  619.  
  620.  @If (@CheckCard ("C000", "00F6", "Fahrenheit 1280 Plus") == 1)
  621.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidf.drv")  
  622.    @Cls
  623.  @Endif
  624.  
  625.  @If (@CheckCard ("c000", "011c", "Fahrenheit 1280") == 1)
  626.    @Delete ("@OutDrive:\\@SubDir\\SYSTEM\\orchidv.drv")
  627.    @Cls
  628.  @Endif
  629.  
  630.  
  631. @EndDisplay
  632. MenuWinEnd:
  633. @Help ("@ExePath\\install.hlp", "HelpWin", "EndWin")
  634. @Display
  635. @Cls
  636.  
  637.  
  638.  
  639.  
  640. ***************************************************************************
  641. *** The installation of the Orchid Window HyperDriver is now completed. ***
  642. ***************************************************************************
  643.  
  644.  
  645. @Pause
  646. @EndDisplay
  647. @Goto MenuMain
  648.  
  649.  
  650. MenuLotus:
  651.  
  652.  
  653.  
  654. @Help ("@ExePath\\install.hlp", "HelpLotusInst", "EndLotus")
  655. @Goto MenuMain
  656.  
  657.  
  658. MenuUtility:
  659.  
  660. @ClearOption(6100) 
  661. @ClearOption(6200) 
  662. @ClearOption(6300) 
  663. @ClearOption(6400) 
  664. @EnableF1(1)
  665.  
  666. @GetOption
  667.  @Cls
  668.  @NameUtil Installation:
  669.  @msgPSAA
  670.  @Option 6100 = " FSCAN.COM"
  671.  @Option 6200 = " FMODE.EXE"
  672.  @Option 6300 = " FDEMO.EXE"
  673.  @Option 6400 = "All of Above"
  674. @EndOption
  675.  
  676. @If (@Esc)
  677.  @Goto MenuMain
  678. @Elseif (@KeyF1)
  679.  @Help ("@ExePath\\install.hlp","HelpUtilMain","EndUtilMain")
  680.  @Goto MenuUtility
  681. @Endif
  682.  
  683. InputDirUtil:
  684. @EnableF1(0)
  685. @GetOutDrive
  686.  @Suppress A
  687.  @Suppress B
  688.  @Cls
  689.  @NameUtil Installation:
  690.  @msgDrive
  691.  
  692.  
  693.  
  694.  
  695.  
  696.  
  697.  
  698.  
  699.  
  700.  
  701.  
  702.  
  703.  
  704.  
  705. @EndOutDrive
  706. @If (@Esc) @Goto MenuUtility @Endif
  707.  
  708. @GetSubdir
  709.  @Default = "\\FAH_UTIL"
  710.  @Cls
  711.  @NameUtil Installation
  712.  @msgDir
  713.  
  714.  
  715. @EndSubdir
  716. @If (@Esc) @Goto MenuUtility @Endif
  717.  
  718. @ClearOption(1)
  719. @ClearOption(2)
  720. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  721.  @EnableF1(0)
  722.  @GetOption
  723.   @LocalWindow (10,39) 
  724.   @Cls
  725.   @NameUtil Installation
  726.   @OutDrive:@SubDir @msgDDNE
  727.   @msgCont
  728.   @Option 1 = "@Reenter"
  729.   @Option 2 = "@Cont"
  730.  @EndOption
  731. @Endif
  732.  
  733. @If (@Esc)
  734.  @Goto MenuUtility
  735. @ElseIf (1 [= @Option)
  736.   @Goto InputDirUtil
  737. @Endif
  738.  
  739. @DefineDisk
  740.  @Label = "Disk #1"
  741.  @BeginLib FAHDRVVA.001 
  742.  
  743.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6100 
  744.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6200 
  745.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6300 
  746.  
  747.  @F fscan.com @O @OutDrive:\@SubDir\*.* @Option 6400 
  748.  @F fmode.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  749.  @F fdemo.exe @O @OutDrive:\@SubDir\*.* @Option 6400 
  750.  
  751.  @EndLib
  752. @EndDisk
  753.  
  754. @Help ("@ExePath\\install.hlp","HelpUtilFin","EndUtilFin")
  755. @Goto MenuUtility
  756.  
  757.  
  758. MenuCADsys:
  759. @ClearOption(2100) 
  760. @ClearOption(2200)
  761. @ClearOption(2300) 
  762. @ClearOption(2400) 
  763. @ClearOption(2500) 
  764. @ClearOption(2600) 
  765. @ClearOption(2700)
  766. @EnableF1(1)
  767.  
  768. @GetOption
  769.  @LocalWindow (10,40)
  770.  @Cls
  771.  @NameCADsys @msgDDI
  772.  @msgPSAA
  773.  @Option 2100 = "@NameACAD"
  774.  @Option 2200 = "@NameCADKey"
  775.  @Option 2300 = "@NameDataCAD"
  776.  @Option 2400 = "@NameCADVance"
  777.  @Option 2500 = "@NameGenCADD"
  778.  @Option 2600 = "@NameMicroCAD"
  779.  @Option 2700 = "@NameVersaCAD"
  780. @EndOption
  781.  
  782. @If (@Esc)
  783.  @Goto MenuMain
  784. @Elseif (@KeyF1)
  785.  @Goto MenuCADsysHelp
  786. @ElseIf (2100 [= @Option)
  787.  @Goto MenuACAD
  788. @ElseIf (2200 [= @Option)
  789.  @Goto MenuCADKey
  790. @ElseIf (2300 [= @Option)
  791.  @Goto MenuDataCAD
  792. @ElseIf (2400 [= @Option)
  793.  @Goto MenuCADVance
  794. @ElseIf (2500 [= @Option)
  795.  @Goto MenuGenCADD
  796. @ElseIf (2600 [= @Option)
  797.  @Goto MenuMicroCAD
  798. @ElseIf (2700 [= @Option)
  799.  @Goto MenuVersaCAD
  800. @Endif
  801.  
  802.  
  803. MenuCADsysHelp:
  804.  
  805. @If (2100 [= @Option)
  806.  @Goto MenuACAD
  807. @Elseif (2200 [= @Option)
  808.  @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  809. @Elseif (2300 [= @Option)
  810.  @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  811. @Elseif (2400 [= @Option)
  812.  @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  813. @Elseif (2500 [= @Option)
  814.  @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  815. @Elseif (2600 [= @Option)
  816.  @Goto MenuMicroCAD
  817. @Elseif (2700 [= @Option)
  818.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  819. @Endif
  820.  
  821. @Goto MenuCADsys
  822.  
  823.  
  824. MenuACAD:
  825. @ClearOption (2105)
  826. @ClearOption (2110)
  827. @ClearOption (2120)
  828. @ClearOption (2125)
  829. @ClearOption (2130)
  830. @ClearOption (2145)
  831. @EnableF1(1)
  832.  
  833. @GetOption @Cls
  834.  @NameACAD @msgDDI
  835.  @msgPSAV
  836.  @Option 2105 = "ADI 4.2 Features and Commands Help Menu (Reading Recommended)"
  837.  @Option 2130 = "AutoCAD Release 11 (Protected Mode ADI 4.2)"
  838.  @Option 2145 = "AutoCAD Release 12 (Protected Mode ADI 4.2)"
  839.  @Option 2120 = "AutoDesk's 3D Studio version 1.0 & 2.0 (PADI 4.2)"
  840.  @Option 2125 = "AutoDesk's AutoShade version 2.1 (PADI 4.2)"
  841.  @Option 2110 = "AutoCAD Release 10 & 11 (Real Mode ADI 4.1)"
  842. @EndOption
  843.  
  844. @If (@Esc)
  845.  @Goto MenuCADsys
  846. @ElseIf (@KeyF1)
  847.  @Goto MenuACADHelp
  848. @ElseIf (2105 [=@Option)
  849.      @Goto MenuADI42
  850. @Endif
  851.  
  852. InputDirACAD:
  853. @EnableF1(0)
  854. @GetOutDrive
  855.  @Suppress A
  856.  @Suppress B
  857.  @Cls
  858.  @NameACAD @msgDDI
  859.  @msgDrive
  860.  
  861.  
  862.  
  863.  
  864.  
  865.  
  866.  
  867.  
  868.  
  869.  
  870.  
  871.  
  872.  
  873. @EndOutDrive
  874. @If (@Esc) @Goto MenuACAD @Endif
  875.  
  876. @GetSubdir
  877.  @If (2110 [= @Option)
  878.   @Default = "\\ACAD"
  879.  @Elseif (2120 [= @Option)
  880.   @Default = "\\3DS"
  881.  @Elseif (2125 [= @Option)
  882.   @Default = "\\SHADE"
  883.  @Elseif (2130 [= @Option)
  884.   @Default = "\\ACAD11"
  885.  @Elseif (2145 [= @Option)
  886.   @Default = "\\ACAD12"
  887.  @Endif
  888.  @Cls
  889.  @NameACAD @msgDDI
  890.  @msgDir
  891.  
  892.  
  893. @EndSubdir
  894. @If (@Esc) @Goto MenuACAD @Endif
  895.  
  896. @ClearOption(1)
  897. @ClearOption(2)
  898. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  899.  @EnableF1(0)
  900.  @GetOption
  901.   @LocalWindow (10,39) 
  902.   @Cls
  903.   @NameACAD @msgDDI
  904.   @OutDrive:@SubDir @msgDDNE
  905.   @msgCont
  906.   @Option 1 = "@Reenter"
  907.   @Option 2 = "@Cont"
  908.  @EndOption
  909. @Endif
  910.  
  911. @If (@Esc)
  912.  @Goto MenuACAD
  913. @ElseIf (1 [= @Option)
  914.   @Goto InputDirACAD
  915. @Endif
  916.  
  917. @DefineDisk
  918.  @Label = "Disk #1"
  919.  @BeginLib FAHDRVVA.001 
  920.  
  921.  @F 15x25.fnt     @O @OutDrive:\@SubDir\*.* @Option 2120
  922.  @F 16x30.fnt     @O @OutDrive:\@SubDir\*.* @Option 2120 
  923.  @F 6x9.fnt       @O @OutDrive:\@SubDir\*.* @Option 2120 
  924.  @F 8x16.fnt      @O @OutDrive:\@SubDir\*.* @Option 2120 
  925.  @F 9x15.fnt      @O @OutDrive:\@SubDir\*.* @Option 2120
  926.  @F 12x24.fnt     @O @OutDrive:\@SubDir\*.* @Option 2120
  927.  @F 12x20.fnt     @O @OutDrive:\@SubDir\*.* @Option 2120
  928.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2120
  929.  
  930.  @F 15x25.fnt     @O @OutDrive:\@SubDir\*.* @Option 2125
  931.  @F 16x30.fnt     @O @OutDrive:\@SubDir\*.* @Option 2125 
  932.  @F 6x9.fnt       @O @OutDrive:\@SubDir\*.* @Option 2125 
  933.  @F 8x16.fnt      @O @OutDrive:\@SubDir\*.* @Option 2125 
  934.  @F 9x15.fnt      @O @OutDrive:\@SubDir\*.* @Option 2125
  935.  @F 12x24.fnt     @O @OutDrive:\@SubDir\*.* @Option 2125
  936.  @F 12x20.fnt     @O @OutDrive:\@SubDir\*.* @Option 2125
  937.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2125
  938.  
  939.  @F 15x25.fnt     @O @OutDrive:\@SubDir\*.* @Option 2130
  940.  @F 16x30.fnt     @O @OutDrive:\@SubDir\*.* @Option 2130 
  941.  @F 6x9.fnt       @O @OutDrive:\@SubDir\*.* @Option 2130 
  942.  @F 8x16.fnt      @O @OutDrive:\@SubDir\*.* @Option 2130 
  943.  @F 9x15.fnt      @O @OutDrive:\@SubDir\*.* @Option 2130
  944.  @F 12x24.fnt     @O @OutDrive:\@SubDir\*.* @Option 2130
  945.  @F 12x20.fnt     @O @OutDrive:\@SubDir\*.* @Option 2130
  946.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\*.* @Option 2130
  947.  
  948.  @F 15x25.fnt     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  949.  @F 16x30.fnt     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  950.  @F 6x9.fnt       @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  951.  @F 8x16.fnt      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145 
  952.  @F 9x15.fnt      @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  953.  @F 12x24.fnt     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  954.  @F 12x20.fnt     @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  955.  @F rcfadi42.exp  @O @OutDrive:\@SubDir\DRV\*.* @Option 2145
  956.  
  957.  @F fadi.exe    @O @OutDrive:\@SubDir\*.* @Option 2110
  958.  
  959.  
  960.  @EndLib 
  961. @EndDisk
  962.  
  963. @If (2110 [= @Option)
  964.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  965. @Elseif (2120 [= @Option)
  966.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  967.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  968.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  969.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  970.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  971.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  972.  @Goto SetAQUILA
  973. EndFONTDS:
  974.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  975. @ElseIf (2125 [= @Option)
  976.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  977.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  978.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RDPADI",
  979.          "SET RDPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  980.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "RCPADI",
  981.          "SET RCPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  982.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SHADE",
  983.          "SET SHADE=@OutDrive:\\@SubDir\\rmansupt", "REPLACE")
  984.  @Goto SetAQUILA
  985. EndFONTS:
  986.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  987. @Elseif (2130 [= @Option)
  988.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  989.          "SET DSPADI=@OutDrive:\\@SubDir\\rcfadi42.exp", "REPLACE")
  990.  @Goto SetAQUILA
  991. EndFONTA:
  992.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  993. @Elseif (2145 [= @Option)
  994.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "DSPADI",
  995.          "SET ACADDRV=@OutDrive:\\@SubDir\\drv\\", "REPLACE")
  996.  @Goto SetAQUILA
  997. EndFONTC:
  998.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12") 
  999.  
  1000. @EndIf   
  1001.               
  1002. @Goto MenuACAD
  1003.  
  1004.  
  1005. MenuADI42:
  1006. @ClearOption(2910)
  1007. @ClearOption(2920)
  1008. @ClearOption(2925) 
  1009. @ClearOption(2930)
  1010. @ClearOption(2933)  
  1011. @ClearOption(2935)  
  1012. @ClearOption(2940)
  1013. @ClearOption(2950)
  1014. @ClearOption(2953)  
  1015. @ClearOption(2955)  
  1016. @ClearOption(2960)
  1017. @ClearOption(2965)
  1018. @ClearOption(2970) 
  1019.  @EnableF1(0)
  1020.  @GetOption
  1021.  @Cls
  1022.     
  1023.  
  1024.  
  1025.  
  1026.  
  1027.  
  1028.  
  1029.  
  1030.  
  1031.  
  1032.  
  1033.  
  1034.  
  1035.   @Option 2910 = "List of Features, Fonts, and Resolutions"
  1036.   @Option 2920 = "Screen Layout and Graphics Flip Screen"
  1037.   @Option 2925 = "Display List Configuration"
  1038.   @Option 2930 = "Birds-Eye View" 
  1039.   @Option 2933 = "Birds-Eye Icons"
  1040.   @Option 2935 = "Edge Pan, Page Alarm"
  1041.   @Option 2940 = "Erase Buffer and Band-Free Rendering" 
  1042.   @Option 2950 = "Fahrenheit Driver Commands Part 1"
  1043.   @Option 2953 = "Fahrenheit Driver Commands Part 2"
  1044.   @Option 2955 = "Fahrenheit Quick Reference Driver Commands"
  1045.   @Option 2960 = "Custom Menu Design"
  1046.   @Option 2965 = "AutoCAD Performance Tuning"
  1047.   @Option 2970 = "Known Bug List and Upgrade Information"
  1048.  
  1049.  
  1050.  
  1051.   @EndOption
  1052.  
  1053.  
  1054.  @If (@Esc)
  1055.      @Goto MenuACAD
  1056. @ElseIf (2910 [=@Option)
  1057.      @Help ("@ExePath\\install.hlp", "HelpFeatures", "EndFeatures")
  1058. @ElseIf (2920 [=@Option)
  1059.      @Help ("@ExePath\\install.hlp", "HelpLayout", "EndLayout")
  1060. @ElseIf (2925 [=@Option)
  1061.      @Help ("@ExePath\\install.hlp", "HelpDLC", "EndDLC")
  1062. @ElseIf (2930 [=@Option)
  1063.      @Help ("@ExePath\\install.hlp", "HelpBird", "EndBird")
  1064. @ElseIf (2933 [=@Option)
  1065.      @Help ("@ExePath\\install.hlp", "HelpIcon", "EndIcon")
  1066. @ElseIf (2935 [=@Option)
  1067.      @Help ("@ExePath\\install.hlp", "HelpPan", "EndPan")
  1068. @ElseIf (2940 [=@Option)
  1069.      @Help ("@ExePath\\install.hlp", "HelpBand", "EndBand")
  1070. @ElseIf (2950 [=@Option)
  1071.      @Help ("@ExePath\\install.hlp", "HelpCommands", "EndCommands")
  1072. @ElseIf (2953 [=@Option)
  1073.      @Help ("@ExePath\\install.hlp", "HelpComtwo", "EndComtwo")
  1074. @ElseIf (2955 [=@Option)
  1075.      @Help ("@ExePath\\install.hlp", "HelpComquick", "EndComquick")
  1076. @ElseIf (2960 [=@Option)
  1077.      @Help ("@ExePath\\install.hlp", "HelpCMD", "EndCMD")
  1078. @ElseIf (2965 [=@Option)
  1079.      @Help ("@ExePath\\install.hlp", "HelpTuning", "EndTuning")
  1080. @ElseIf (2970 [=@Option)
  1081.      @Help ("@ExePath\\install.hlp", "HelpBug", "EndBug")
  1082.  
  1083. @endif
  1084. @Goto MenuADI42
  1085.  
  1086.  
  1087.  
  1088. MenuACADHelp:
  1089.  
  1090. @If (2110 [= @Option)
  1091.  @Help ("@ExePath\\install.hlp", "HelpACAD10r", "EndACAD10r")
  1092. @Elseif (2105 [= @Option)
  1093.  @Help ("@ExePath\\install.hlp", "HelpADI42", "EndADI42")
  1094. @ElseIf (2120 [= @Option)
  1095.  @Help ("@ExePath\\install.hlp", "Help3DS", "End3DS")
  1096. @Elseif (2125 [= @Option)
  1097.  @Help ("@ExePath\\install.hlp", "HelpShade", "EndShade")
  1098. @Elseif (2130 [= @Option)
  1099.  @Help ("@ExePath\\install.hlp", "HelpACAD11", "EndACAD11")
  1100. @Elseif (2145 [= @Option)
  1101.  @Help ("@ExePath\\install.hlp", "HelpACAD12", "EndACAD12")
  1102. @EndIf   
  1103.  
  1104. @Goto MenuACAD
  1105.  
  1106.  
  1107. MenuCADKey:
  1108.  
  1109. @EnableF1(0)
  1110. @GetOutDrive
  1111.  @Suppress A
  1112.  @Suppress B
  1113.  @Cls
  1114.  @NameCADKey @msgDDI
  1115.  @msgDrive
  1116. @EndOutDrive
  1117. @If (@Esc) @Goto MenuCADsys @Endif
  1118.  
  1119. @GetSubdir
  1120.  @Default = "\\CADKEY"
  1121.  @Cls
  1122.  @NameCADKey @msgDDI
  1123.  @msgDir
  1124.  
  1125.  
  1126. @EndSubdir
  1127. @If (@Esc) @Goto MenuCADKey @Endif
  1128.  
  1129.  
  1130. @ClearOption(1)
  1131. @ClearOption(2)
  1132. @EnableF1(0)
  1133. @GetOption
  1134.  @LocalWindow (10,39) 
  1135.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1136.   @Cls
  1137.   @NameCADKey @msgDDI
  1138.   @OutDrive:@SubDir @msgDDNE
  1139.   @msgCont
  1140.  @ElseIf (@Exists "@OutDrive:\\@SubDir\\grdev.dat" == 0)
  1141.   @Cls
  1142.   @NameCADKey @msgDDI
  1143.   The grdev.dat file is not found in your input directory:
  1144.   @OutDrive:@SubDir
  1145.   @NameCADKey @msgNPI
  1146.  @Else
  1147.   @Goto CopyFileCADKey
  1148.  @EndIf
  1149.  @Option 1 = "@Reenter"
  1150.  @Option 2 = "@Cont"
  1151. @EndOption
  1152. @If ((@Esc) || (1 [= @Option))
  1153.   @Goto MenuCADKey
  1154. @Endif
  1155.  
  1156. CopyFileCADKey:
  1157. @Rename ("@OutDrive:\\@Subdir\\grdev.dat","grdev.000")
  1158. @DefineDisk
  1159.  @Label = "Disk #1"
  1160.  @BeginLib FAHDRVVA.001 
  1161.  @F ck_911.exe  @O @OutDrive:\@SubDir\*.*
  1162.  @F grdev.dat   @O @OutDrive:\@SubDir\*.orc 
  1163.  @EndLib 
  1164. @EndDisk
  1165.  
  1166. @Delete ("@OutDrive:\\@Subdir\\grdev.dat")
  1167. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.000")
  1168. @CatFiles ("@OutDrive:\\@Subdir\\grdev.dat","@OutDrive:\\@Subdir\\grdev.orc")
  1169. @Delete ("@OutDrive:\\@Subdir\\grdev.orc")
  1170.                   
  1171. @Help ("@ExePath\\install.hlp", "HelpCADKey", "EndCADKey")
  1172. @Goto MenuCADsys
  1173.  
  1174.  
  1175.  
  1176. MenuDataCAD:
  1177.  
  1178. @EnableF1(0)
  1179. @GetOutDrive
  1180.  @Suppress A
  1181.  @Suppress B
  1182.  @Cls
  1183.  @NameDataCAD @msgDDI
  1184.  @msgDrive
  1185. @EndOutDrive
  1186. @If (@Esc) @Goto MenuCADsys @Endif
  1187.  
  1188. @GetSubdir
  1189.  @Default = "\\MTEC\\DRV"
  1190.  @Cls
  1191.  @NameDataCAD @msgDDI
  1192.  @msgDir
  1193.  
  1194.  
  1195. @EndSubdir
  1196. @If (@Esc) @Goto MenuDataCAD @Endif
  1197.  
  1198.  
  1199. @ClearOption(1)
  1200. @ClearOption(2)
  1201. @EnableF1(0)
  1202. @GetOption
  1203.  @LocalWindow (10,39) 
  1204.  @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1205.   @Cls
  1206.   @NameDataCAD @msgDDI
  1207.   @OutDrive:@SubDir @msgDDNE
  1208.   @msgCont
  1209.  @ElseIf ((@Exists "@OutDrive:\\@SubDir\\drivers.gd2" == 0) ||
  1210.       (@Exists "@OutDrive:\\@SubDir\\drivers.gd4" == 0))
  1211.   @Cls
  1212.   @NameDataCAD @msgDDI
  1213.   The drivers.gd2/drivers.gd4 file is not found in your input directory:
  1214.   @OutDrive:@SubDir
  1215.   DataCAD @msgNPI
  1216.  @Else
  1217.   @Goto CopyFileDataCAD
  1218.  @EndIf
  1219.  @Option 1 = "@Reenter"
  1220.  @Option 2 = "@Cont"
  1221. @EndOption
  1222. @If ((@Esc) || (1 [= @Option))
  1223.   @Goto MenuDataCAD
  1224. @Endif
  1225.  
  1226. CopyFileDataCAD:
  1227. @Rename ("@OutDrive:\\@Subdir\\drivers.gd2","drivers.oc2")
  1228. @Rename ("@OutDrive:\\@Subdir\\drivers.gd4","drivers.oc4")
  1229. @Delete ("@OutDrive:\\@Subdir\\drivers.gd2")
  1230. @Delete ("@OutDrive:\\@Subdir\\drivers.gd4")
  1231.  
  1232. @DefineDisk
  1233.  @Label = "Disk #1"
  1234.  @BeginLib FAHDRVVA.001 
  1235.  @F ck_911.exe   @O @OutDrive:\@SubDir\*.*
  1236.  @F dl_911.exe   @O @OutDrive:\@SubDir\*.*
  1237.  @F drivers.gd2  @O @OutDrive:\@SubDir\orchid.*
  1238.  @F drivers.gd4  @O @OutDrive:\@SubDir\orchid.*
  1239.  @EndLib 
  1240. @EndDisk
  1241.  
  1242. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\drivers.oc2")
  1243. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd2","@OutDrive:\\@Subdir\\orchid.gd2")
  1244. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\drivers.oc4")
  1245. @CatFiles ("@OutDrive:\\@Subdir\\drivers.gd4","@OutDrive:\\@Subdir\\orchid.gd4")
  1246. @Delete ("@OutDrive:\\@Subdir\\orchid.gd2")
  1247. @Delete ("@OutDrive:\\@Subdir\\orchid.gd4")
  1248.  
  1249. @Help ("@ExePath\\install.hlp", "HelpDataCAD", "EndDataCAD")
  1250. @Goto MenuCADsys
  1251.  
  1252.  
  1253. MenuCADVance:
  1254.  
  1255. @EnableF1(0)
  1256. @GetOutDrive
  1257.  @Suppress A
  1258.  @Suppress B
  1259.  @Cls
  1260.  @NameCADVance @msgDDI
  1261.  @msgDrive
  1262. @EndOutDrive
  1263. @If (@Esc) @Goto MenuCADsys @Endif
  1264.  
  1265. @GetSubdir
  1266.  @Default = "\\CADVANCE"
  1267.  @Cls
  1268.  @NameCADVance @msgDDI
  1269.  @msgDir
  1270.  
  1271.  
  1272. @EndSubdir
  1273. @If (@Esc) @Goto MenuCADVance @Endif
  1274.  
  1275.  
  1276. @ClearOption(1)
  1277. @ClearOption(2)
  1278. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1279.   @EnableF1(0)
  1280.   @GetOption
  1281.   @LocalWindow (10,39)
  1282.   @Cls
  1283.   @NameCADVance @msgDDI
  1284.   @OutDrive:@SubDir @msgDDNE
  1285.   @msgCont
  1286.   @Option 1 = "@Reenter"
  1287.   @Option 2 = "@Cont"
  1288.   @EndOption
  1289. @Endif
  1290.  
  1291. @If ((@Esc) || (1 [= @Option))
  1292.   @Goto MenuCADVance
  1293. @Endif
  1294.  
  1295. @DefineDisk
  1296.  @Label = "Disk #1"
  1297.  @BeginLib FAHDRVVA.001 
  1298.  @F cdv911.drv      @O @OutDrive:\@SubDir\*.*
  1299.  @EndLib 
  1300. @EndDisk
  1301.  
  1302. @Goto SetS3911
  1303.  
  1304. EndCADVance:
  1305. @Help ("@ExePath\\install.hlp", "HelpCADVance", "EndCADVance")
  1306. @Goto MenuCADsys
  1307.  
  1308.  
  1309. MenuGenCADD:
  1310.  
  1311. @EnableF1(0)
  1312. @GetOutDrive
  1313.  @Suppress A
  1314.  @Suppress B
  1315.   @Cls
  1316.   @NameGenCADD @msgDDI
  1317.   @msgDrive
  1318. @EndOutDrive
  1319. @If (@Esc) @Goto MenuCADsys @Endif
  1320.  
  1321. @GetSubdir
  1322.  @Default = "\\GENERIC"
  1323.  @Cls
  1324.  @NameGenCADD @msgDDI
  1325.  @msgDir
  1326.  
  1327.  
  1328. @EndSubdir
  1329. @If (@Esc) @Goto MenuGenCADD @Endif
  1330.  
  1331. @ClearOption(1)
  1332. @ClearOption(2)
  1333. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1334.  @EnableF1(0)
  1335.  @GetOption @Cls
  1336.   @LocalWindow (10,39) 
  1337.   @NameGenCADD @msgDDI
  1338.   @OutDrive:@SubDir @msgDDNE
  1339.   @msgCont
  1340.  
  1341.   @Option 1 = "@Reenter"
  1342.   @Option 2 = "@Cont"
  1343.  @EndOption
  1344. @Endif
  1345.  
  1346. @If ((@Esc) || (1 [= @Option))
  1347.  @Goto MenuGenCADD
  1348. @Endif
  1349.  
  1350. @DefineDisk
  1351.  @Label = "Disk #1"
  1352.  @BeginLib FAHDRVVA.001 
  1353.  @F f1280l.vgd  @O @OutDrive:\@SubDir\*.*
  1354.  @EndLib 
  1355. @EndDisk
  1356.  
  1357.  
  1358. @Goto SetS3911
  1359.  
  1360. EndGenCADD:
  1361. @Help ("@ExePath\\install.hlp", "HelpGenCADD", "EndGenCADD")
  1362. @Goto MenuCADsys
  1363.  
  1364. MenuMicroCAD:
  1365.  
  1366. @ClearOption (2610) 
  1367. @ClearOption (2620)
  1368. @EnableF1(1)
  1369. @GetOption @Cls
  1370.  @NameMicroCAD @msgDDI
  1371.  @msgPSAV
  1372.  @Option 2610 = "MicroStation (Real Mode)"
  1373.  @Option 2620 = "MicroStation (Protected Mode)"
  1374. @EndOption
  1375.  
  1376. @If (@Esc)
  1377.  @Goto MenuCADsys
  1378. @ElseIf (@KeyF1)
  1379.  @Goto MenuMicroCADHelp
  1380. @Endif
  1381.  
  1382. InputDirMicroCAD:
  1383. @EnableF1(0)
  1384. @GetOutDrive
  1385.  @Suppress A
  1386.  @Suppress B
  1387.  @Cls
  1388.  @NameMicroCAD @msgDDI
  1389.  @msgDrive
  1390. @EndOutDrive
  1391. @If (@Esc) @Goto MenuMicroCAD @Endif
  1392.  
  1393. @GetSubdir
  1394.  @Default = "\\USTATION\\DRIVERS"
  1395.  @Cls
  1396.  @NameMicroCAD @msgDDI
  1397.  @msgDir
  1398.  
  1399.  
  1400. @EndSubdir
  1401. @If (@Esc) @Goto InputDirMicroCAD @Endif
  1402.  
  1403. @ClearOption(1)
  1404. @ClearOption(2)
  1405. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1406.  @EnableF1(0)
  1407.  @GetOption
  1408.   @LocalWindow (10,39)
  1409.   @Cls
  1410.   @NameMicroCAD @msgDDI
  1411.   @OutDrive:@SubDir @msgDDNE
  1412.   @msgCont
  1413.   @Option 1 = "@Reenter"
  1414.   @Option 2 = "@Cont"
  1415.  @EndOption
  1416. @Endif
  1417.  
  1418. @If ((@Esc) || (1 [= @Option))
  1419.  @Goto InputDirMicroCAD
  1420. @Endif
  1421.  
  1422. @DefineDisk
  1423.  @Label = "Disk #1"
  1424.  @BeginLib FAHDRVVA.001 
  1425.   @F mgls3.exe   @O @OutDrive:\@SubDir\*.* @Option 2610
  1426.   @F mgls3.mgl   @O @OutDrive:\@SubDir\*.* @Option 2610
  1427.   @F remove.exe  @O @OutDrive:\@SubDir\*.* @Option 2610
  1428.  
  1429.   @F mgl911.exp  @O @OutDrive:\@SubDir\*.* @Option 2620
  1430.   @F mgl911.ma   @O @OutDrive:\@SubDir\*.* @Option 2620
  1431.   @F mgl911.mgl  @O @OutDrive:\@SubDir\*.* @Option 2620 
  1432.  @EndLib 
  1433. @EndDisk
  1434.  
  1435. @Goto SetS3911
  1436.  
  1437. EndMicroCAD:
  1438.  
  1439. @If (2610 [= @Option)
  1440.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1441. @ElseIf (2620 [= @Option)
  1442.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1443. @EndIf   
  1444.  
  1445. @Goto MenuCADsys
  1446.  
  1447.  
  1448. MenuMicroCADHelp:
  1449.  
  1450. @If (2610 [= @Option)
  1451.  @Help ("@ExePath\\install.hlp", "HelpMicroCADr", "EndMicroCADr")
  1452. @ElseIf (2620 [= @Option)
  1453.  @Help ("@ExePath\\install.hlp", "HelpMicroCADp", "EndMicroCADp")
  1454. @EndIf   
  1455.  
  1456. @Goto MenuMicroCAD
  1457.  
  1458.  
  1459. MenuVersaCAD:
  1460.  
  1461. @EnableF1(1)
  1462. @ClearOption (2710)
  1463. @ClearOption (2750)
  1464. @GetOption @Cls
  1465.  @NameVersaCAD @msgDDI
  1466.  @msgPSAV
  1467.  @Option 2750 = "VersaCAD 386 (Protected Mode)"
  1468.  @Option 2710 = "VersaCAD Designer (Real Mode)"
  1469. @EndOption
  1470.  
  1471. @If (@Esc)
  1472.  @Goto MenuCADsys
  1473. @Elseif (@KeyF1)
  1474.  @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1475.  @Goto MenuVersaCAD
  1476. @Endif
  1477.  
  1478. InputDirVersaCAD:
  1479. @EnableF1(0)
  1480. @GetOutDrive
  1481.  @Suppress A
  1482.  @Suppress B
  1483.  @Cls
  1484.  @NameVersaCAD @msgDDI
  1485.  @msgDrive
  1486. @EndOutDrive
  1487. @If (@Esc) @Goto MenuVersaCAD @Endif
  1488.  
  1489. @GetSubdir
  1490.  @Default = "\\VCAD"
  1491.  @Cls
  1492.  @NameVersaCAD @msgDDI
  1493.  @msgDir
  1494.  
  1495.  
  1496. @EndSubdir
  1497. @If (@Esc) @Goto InputDirVersaCAD @Endif
  1498.  
  1499. @ClearOption(1)
  1500. @ClearOption(2)
  1501. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1502.  @EnableF1(0)
  1503.  @GetOption
  1504.  @LocalWindow (10,39)
  1505.  @Cls
  1506.   @NameVersaCAD @msgDDI
  1507.   @OutDrive:@SubDir @msgDDNE
  1508.   @msgCont
  1509.   @Option 1 = "@Reenter"
  1510.   @Option 2 = "@Cont"
  1511.  @EndOption
  1512. @Endif
  1513. @If ((@Esc) || (1 [= @Option))
  1514.  @Goto InputDirVersaCAD
  1515. @Endif
  1516.  
  1517. @DefineDisk
  1518.  @Label = "Disk #1"
  1519.  @BeginLib FAHDRVVA.001 
  1520.  @F remove.exe  @O @OutDrive:\@SubDir\*.*
  1521.  @F vc2_911.com @O @OutDrive:\@SubDir\*.* @Option 2710
  1522.  @F vcadreal.cfg  @O @OutDrive:\@SubDir\*.* @Option 2710
  1523.  @F vc3_911.com @O @OutDrive:\@SubDir\*.* @Option 2750
  1524.  @F vcad386.cfg @O @OutDrive:\@SubDir\*.* @Option 2750
  1525.  @F vcad386.bat @O @OutDrive:\*.* @Option 2750
  1526.  @EndLib 
  1527. @EndDisk
  1528.                   
  1529. @Help ("@ExePath\\install.hlp", "HelpVersaCAD", "EndVersaCAD")
  1530. @Goto MenuCADsys
  1531.  
  1532. MenuDesktop:
  1533.  
  1534. @ClearOption(3100)
  1535. @ClearOption(3200)
  1536. @EnableF1(1)
  1537. @GetOption
  1538. @Cls
  1539.  @NameDesk @msgDDI
  1540.  @msgPSAA
  1541.  @Option 3100 = "@NameVentura"
  1542.  @Option 3200 = "@NameGem"
  1543. @EndOption
  1544.  
  1545. @If (@Esc)
  1546.  @Goto MenuMain
  1547. @Elseif (@KeyF1)
  1548.  @Goto MenuDesktopHelp 
  1549. @Elseif (3100 [= @Option)
  1550.  @Goto MenuVentura
  1551. @Else
  1552.  @Goto MenuGem
  1553. @Endif
  1554.  
  1555.  
  1556. MenuDesktopHelp:
  1557.  
  1558. @If (3100 [= @Option)
  1559.  @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1560. @Elseif (3200 [= @Option)
  1561.  @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1562. @Endif
  1563.  
  1564. @Goto MenuDesktop
  1565.  
  1566.  
  1567. MenuVentura:
  1568.  
  1569. @EnableF1(0)
  1570. @GetOutDrive
  1571.  @Suppress A
  1572.  @Suppress B
  1573.   @Cls
  1574.   @NameVentura @msgDDI
  1575.   @msgDrive
  1576. @EndOutDrive
  1577. @If (@Esc) @Goto MenuDesktop @Endif
  1578.  
  1579. @GetSubdir
  1580.  @Default = "\\VENTURA"
  1581.  @Cls
  1582.  @NameVentura @msgDDI
  1583.  @msgDir
  1584.  
  1585.  
  1586. @EndSubdir
  1587. @If (@Esc) @Goto MenuVentura @Endif
  1588.  
  1589. @ClearOption(1)
  1590. @ClearOption(2)
  1591. @If (@Exists "@OutDrive:\\@SubDir" == 0)
  1592.  @EnableF1(0)
  1593.  @GetOption @Cls
  1594.   @LocalWindow (10,39) 
  1595.   @NameVentura @msgDDI
  1596.   @OutDrive:@SubDir @msgDDNE
  1597.   @msgCont
  1598.   @Option 1 = "@Reenter"
  1599.   @Option 2 = "@Cont"
  1600.  @EndOption
  1601. @Endif
  1602.  
  1603. @If ((@Esc) || (1 [= @Option))
  1604.  @Goto MenuVentura
  1605. @Endif
  1606.  
  1607. @DefineDisk
  1608.  @Label = "Disk #1"
  1609.  @BeginLib FAHDRVVA.001 
  1610.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1611.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1612.  @EndLib 
  1613. @EndDisk
  1614.  
  1615.  
  1616. @Goto SetS3911
  1617.  
  1618. EndVentura:                               
  1619. @Help ("@ExePath\\install.hlp", "HelpVentura", "EndVentura")
  1620. @Goto MenuDesktop
  1621.  
  1622.  
  1623. MenuGem:
  1624.  
  1625. @EnableF1(0)
  1626. @GetOutDrive
  1627.  @Suppress A
  1628.  @Suppress B
  1629.   @Cls
  1630.   @NameGem @msgDDI
  1631.   @msgDrive
  1632. @EndOutDrive
  1633. @If (@Esc) @Goto MenuDesktop @Endif
  1634.  
  1635. @GetSubdir
  1636.  @Default = "\\GEMAPPS\\GEMSYS"
  1637.  @Cls
  1638.  @NameGem @msgDDI
  1639.  @msgDir
  1640.  
  1641.  
  1642. @EndSubdir
  1643. @If (@Esc) @Goto MenuGem @Endif
  1644.  
  1645.  
  1646. @ClearOption(1)
  1647. @ClearOption(2)
  1648. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1649.  @EnableF1(0)
  1650.  @GetOption @Cls
  1651.   @LocalWindow (10,39) 
  1652.   @NameGem @msgDDI
  1653.   @OutDrive:@SubDir @msgDDNE
  1654.   @msgCont
  1655.   @Option 1 = "@Reenter"
  1656.   @Option 2 = "@Cont"
  1657.  @EndOption
  1658. @Endif
  1659.  
  1660. @If ((@Esc) || (1 [= @Option))
  1661.  @Goto MenuGem
  1662. @Endif
  1663.  
  1664. @Rename ("@OutDrive:\\@SubDir\\sd*.vga","sd*.bak")
  1665. @DefineDisk
  1666.  @Label = "Disk #1"
  1667.  @BeginLib FAHDRVVA.001 
  1668.  @F sdgemvp.vga @O @OutDrive:\@SubDir\*.*
  1669.  @F sysfont.bg  @O @OutDrive:\@SubDir\*.*
  1670.  @EndLib 
  1671. @EndDisk
  1672.  
  1673.  
  1674. @Goto SetS3911
  1675.  
  1676. EndGem:
  1677. @Help ("@ExePath\\install.hlp", "HelpGem", "EndGem")
  1678. @Goto MenuDesktop
  1679.  
  1680.  
  1681. MenuWordProcess:
  1682.  
  1683. @ClearOption(5100)
  1684. @ClearOption(5200)
  1685. @EnableF1(1)
  1686. @GetOption
  1687. @Cls
  1688.  @NameWord @msgDDI
  1689.  @msgPSAA
  1690.  @Option 5100 = "@NameWP"
  1691.  @Option 5200 = "@NameMSWord"
  1692. @EndOption
  1693.  
  1694. @If (@Esc)
  1695.  @Goto MenuMain
  1696. @Elseif (@KeyF1)
  1697.  @Goto MenuWordHelp
  1698. @Elseif (5100 [= @Option)
  1699.  @Goto MenuWP
  1700. @Elseif (5200 [= @Option)
  1701.  @Goto MenuMSWord
  1702. @Endif
  1703.  
  1704.  
  1705. MenuWordHelp:
  1706.  
  1707. @If (5100 [= @Option)
  1708.  @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1709. @Elseif (5200 [= @Option)
  1710.  @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1711. @Endif
  1712.  
  1713. @Goto MenuWordProcess
  1714.  
  1715.  
  1716. MenuWP:
  1717.  
  1718. @EnableF1(0)
  1719. @GetOutDrive
  1720.  @Suppress A
  1721.  @Suppress B
  1722.   @Cls
  1723.   @NameWP @msgDDI
  1724.   @msgDrive
  1725. @EndOutDrive
  1726. @If (@Esc) @Goto MenuWordProcess @Endif
  1727.  
  1728. @GetSubdir
  1729.  @Default = "\\WP"
  1730.  @Cls
  1731.  @NameWP @msgDDI
  1732.  @msgDir
  1733.  
  1734.  
  1735. @EndSubdir
  1736. @If (@Esc) @Goto MenuWP @Endif
  1737.  
  1738. @ClearOption(1)
  1739. @ClearOption(2)
  1740. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1741.  @EnableF1(0)
  1742.  @GetOption @Cls
  1743.   @LocalWindow (10,39) 
  1744.   @NameWP @msgDDI
  1745.   @OutDrive:@SubDir @msgDDNE
  1746.   @msgCont
  1747.   @Option 1 = "@Reenter"
  1748.   @Option 2 = "@Cont"
  1749.  @EndOption
  1750. @Endif
  1751.  
  1752. @If ((@Esc) || (1 [= @Option))
  1753.  @Goto MenuWP
  1754. @Endif
  1755.  
  1756. @DefineDisk
  1757.  @Label = "Disk #1"
  1758.  @BeginLib FAHDRVVA.001 
  1759.  @F wpgraph.vrs @O @OutDrive:\@SubDir\*.* 
  1760.  @F wptext.vrs @O @OutDrive:\@SubDir\*.* 
  1761.  @EndLib 
  1762. @EndDisk
  1763.  
  1764. @Help ("@ExePath\\install.hlp", "HelpWP", "EndWP")
  1765. @Goto MenuWordProcess
  1766.  
  1767.  
  1768. MenuMSWord:
  1769.  
  1770. @EnableF1(0)
  1771. @GetOutDrive
  1772.  @Suppress A
  1773.  @Suppress B
  1774.   @Cls
  1775.   @NameMSWord @msgDDI
  1776.   @msgDrive
  1777. @EndOutDrive
  1778. @If (@Esc) @Goto MenuWordProcess @Endif
  1779.  
  1780. @GetSubdir
  1781.  @Default = "\\WORD"
  1782.  @Cls
  1783.  @NameMSWord @msgDDI
  1784.  @msgDir
  1785.  
  1786.  
  1787. @EndSubdir
  1788. @If (@Esc) @Goto MenuMSWord @Endif
  1789.  
  1790. @ClearOption(1)
  1791. @ClearOption(2)
  1792. @If ((@Exists "@OutDrive:\\@SubDir") == 0)
  1793.  @EnableF1(0)
  1794.  @GetOption @Cls
  1795.   @LocalWindow (10,39) 
  1796.   @NameMSWord @msgDDI
  1797.   @OutDrive:@SubDir @msgDDNE
  1798.   @msgCont
  1799.   @Option 1 = "@Reenter"
  1800.   @Option 2 = "@Cont"
  1801.  @EndOption
  1802. @Endif
  1803.  
  1804. @If ((@Esc) || (1 [= @Option))
  1805.  @Goto MenuMSWord
  1806. @Endif
  1807.  
  1808. @DefineDisk
  1809.  @Label = "Disk #1"
  1810.  @BeginLib FAHDRVVA.001 
  1811.  @F screen.vid @O @OutDrive:\@SubDir\*.* 
  1812.  @EndLib 
  1813. @EndDisk
  1814.  
  1815. @Help ("@ExePath\\install.hlp", "HelpMSWord", "EndMSWord")
  1816. @Goto MenuWordProcess
  1817.  
  1818.  
  1819. SetS3911:
  1820.  
  1821. @ClearOption (0)
  1822. @ClearOption (1)
  1823. @ClearOption (2)
  1824. @ClearOption (3)
  1825. @ClearOption (4)
  1826. @ClearOption (5)
  1827. @ClearOption (7)
  1828. @EnableF1(0)
  1829. @GetOption
  1830.  @If (2400 [= @Option)
  1831.   @Cls
  1832.   @NameCADVance @msgDDI
  1833.   Please Select a Resolution:
  1834.  @Elseif (2500 [= @Option)
  1835.   @Cls
  1836.   @NameGenCADD @msgDDI
  1837.   Please Select a Resolution:
  1838.  @Elseif (2600 [= @Option)
  1839.   @Cls
  1840.   @NameMicroCAD @msgDDI
  1841.   Please Select a Resolution:
  1842.  @Elseif (3100 [= @Option)
  1843.   @Cls
  1844.   @NameVentura @msgDDI
  1845.   Please Select a Resolution:
  1846.  @Elseif (3200 [= @Option)
  1847.   @Cls
  1848.   @NameGem @msgDDI
  1849.   Please Select a Resolution:
  1850.  @Endif
  1851.    @Option 4 = "1024 x 768,  256 colors"
  1852.    @Option 2 = "800  x 600,  256 colors"
  1853.    @Option 0 = "640  x 480,  256 colors"     
  1854.    @Option 7 = "1280 x 1024, 16  colors"
  1855.    @Option 5 = "1280 x 960,  16  colors"
  1856.    @Option 3 = "1024 x 768,  16  colors"
  1857.    @Option 1 = "800  x 600,  16  colors"
  1858. @EndOption
  1859.  
  1860. @If (@Esc)
  1861.  @Goto EndS3911
  1862. @Elseif (0 [= @Option)
  1863.  @Value(0)
  1864. @Elseif (1 [= @Option)
  1865.  @Value(1)
  1866. @Elseif (2 [= @Option)
  1867.  @Value(2)
  1868. @Elseif (3 [= @Option)
  1869.  @Value(3)
  1870. @Elseif (4 [= @Option)
  1871.  @Value(4)
  1872. @Elseif (5 [= @Option)
  1873.  @Value(5)
  1874. @Else
  1875.  @Value(7)
  1876. @Endif
  1877.  
  1878. @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "S31_911",
  1879.         "SET S31_911=@Value()", "REPLACE")
  1880.  
  1881. EndS3911:
  1882.  
  1883. @If (2400 [= @Option)
  1884.  @Goto EndCADVance
  1885. @Elseif (2500 [= @Option)
  1886.  @Goto EndGenCADD
  1887. @Elseif (2600 [= @Option)
  1888.  @Goto EndMicroCAD
  1889. @Elseif (3100 [= @Option)
  1890.  @Goto EndVentura
  1891. @Elseif (3200 [= @Option)
  1892.  @Goto EndGem
  1893. @Else
  1894.  @Goto MenuCADsys
  1895. #Endif
  1896.  
  1897.  
  1898. SetAQUILA:
  1899. MenuRETURN:
  1900. @ClearOption(50)  
  1901. @ClearOption(51) 
  1902. @EnableF1(1)
  1903.  
  1904. @GetOption
  1905.  @LocalWindow (10,40)
  1906.  @Cls
  1907.  Do you wish to select a different Font Size other than 8x16 (Default)?
  1908.  (Hit the <F1> Key for more information on Font Sizes.)
  1909.  @Option 50 = "YES"
  1910.  @option 51 = "NO"
  1911. @EndOption
  1912.  
  1913. @If (@Esc)
  1914.  @Goto MenuRETURN
  1915. @Elseif (@KeyF1)
  1916.      @Help ("@ExePath\\install.hlp","HelpFONT","EndFONT")
  1917. @Elseif (50 [= @Option)
  1918.  @Goto MenuFNT
  1919. @Elseif (51 [= @Option)
  1920.  @Goto EndAquila
  1921. @Endif
  1922. @Goto MenuRETURN 
  1923.  
  1924.  
  1925.  
  1926.  
  1927. MenuFNT:
  1928. @ClearOption (10)
  1929. @ClearOption (11)
  1930. @ClearOption (12)
  1931. @ClearOption (13)
  1932. @ClearOption (14)
  1933. @ClearOption (15)
  1934. @ClearOption (16)
  1935. @EnableF1(0)
  1936. @GetOption
  1937.  @If (2125 [= @Option)
  1938.   @Cls
  1939.   AutoShade @msgDDI
  1940.   Please Select a Font Size:
  1941.  @Elseif (2120 [= @Option)
  1942.   @Cls
  1943.   3D Studio @msgDDI
  1944.   Please Select a Font Size:
  1945.  @Elseif (2130 [= @Option)
  1946.   @Cls
  1947.   AutoCAD 11 @msgDDI
  1948.   Please Select a Font Size:
  1949.  @Elseif (2145 [= @Option)
  1950.   @Cls
  1951.   AutoCAD 12 @msgDDI
  1952.   Please Select a Font Size:
  1953.  @Endif
  1954.    @Option 10 = "6x9"
  1955.    @Option 11 = "9x15"
  1956.    @Option 12 = "8x16"
  1957.    @Option 13 = "12x20"     
  1958.    @Option 14 = "12x24"
  1959.    @Option 15 = "15x25"
  1960.    @Option 16 = "16x30"
  1961. @EndOption
  1962.  
  1963. @If (@Esc)
  1964.  @Goto EndAquila
  1965. @Elseif (10 [= @Option)
  1966.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1967.          "SET AQUILA_FONT=6x9.fnt", "REPLACE")
  1968. @Elseif (11 [= @Option)
  1969.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1970.          "SET AQUILA_FONT=9x15.fnt", "REPLACE")
  1971. @Elseif (12 [= @Option)
  1972.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1973.          "SET AQUILA_FONT=8x16.fnt", "REPLACE")
  1974. @Elseif (13 [= @Option)
  1975.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1976.          "SET AQUILA_FONT=12x20.fnt", "REPLACE")
  1977. @Elseif (14 [= @Option)
  1978.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1979.          "SET AQUILA_FONT=12x24.fnt", "REPLACE")
  1980. @Elseif (15 [= @Option)
  1981.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1982.          "SET AQUILA_FONT=15x25.fnt", "REPLACE")
  1983. @Elseif (16 [= @Option)
  1984.  @WriteFile ("@BootDrive:\\autoexec.bat", "NOSECTION", "SET AQUILA_FONT",
  1985.          "SET AQUILA_FONT=16x30.fnt", "REPLACE")
  1986. @Endif
  1987.  
  1988. EndAquila:
  1989.  
  1990. @If (2125 [= @Option)
  1991.  @Goto EndFONTS
  1992. @Elseif (2120 [= @Option)
  1993.  @Goto EndFONTDS
  1994. @Elseif (2130 [= @Option)
  1995.  @Goto EndFONTA
  1996. @Elseif (2145 [= @Option)
  1997.  @Goto EndFONTC
  1998. @Else
  1999.  @Goto MenuCADsys
  2000. @Endif
  2001.  
  2002.  
  2003. MenuSample:
  2004. @ClearOption(9010)
  2005. @ClearOption(9020)
  2006. @ClearOption(9030)
  2007. @ClearOption(9040) 
  2008.  @EnableF1(1)
  2009.  @GetOption
  2010.  @Cls
  2011.  @LocalWindow (10,39)   
  2012.   @Option 9010 = "Copy files from Master Drive A: to a Formatted Floppy Drive A:"
  2013.   @Option 9020 = "Copy files from Master Drive A: to a Formatted Floppy Drive B:"
  2014.   @Option 9030 = "Copy files from Master Drive B: to a Formatted Floppy Drive A:"
  2015.   @Option 9040 = "Copy files from Master Drive B: to a Formatted Floppy Drive B:"
  2016.  
  2017.  @EndOption
  2018.  
  2019.  
  2020.  @If (@Esc)
  2021.      @Goto MenuMain
  2022.   @Elseif (@KeyF1)
  2023.      @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  2024.   @ElseIf (9010 [=@Option)
  2025.      @Goto MenuAA
  2026.   @ElseIf (9020 [=@Option)
  2027.      @Goto MenuBB
  2028.   @ElseIf (9030 [=@Option)
  2029.      @Goto MenuAA
  2030.   @ElseIf (9040 [=@Option)
  2031.      @Goto MenuBB
  2032. @endif
  2033. @Goto MenuSample
  2034.  
  2035.  
  2036. MenuAA:
  2037. @EnableF1(0)
  2038. @If (!@DriveExists(C))
  2039.     @Display
  2040.        This program requires a Hard Disk Drive to complete this copy.
  2041.  
  2042.       @Pause
  2043.     @Goto MenuMain
  2044.     @EndDisplay
  2045. @EndIf
  2046. @DefineDisk 
  2047.  @Label = "Disk #1"
  2048.  @BeginLib FAHDRVVA.001 
  2049.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  2050.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  2051.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  2052.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  2053.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  2054.   @F copya.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  2055.  
  2056.  @EndLib
  2057.  @F Finstall.exe   @O C:\Fahrenva\temp\install.exe 
  2058. @EndDisk
  2059.  
  2060. @Display                    
  2061.  @Cls
  2062.   @System "C:\\Fahrenva\\temp\\makedisk.bat"
  2063.  @Cls
  2064.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  2065.  @Cls
  2066.  
  2067.  
  2068.  
  2069.  
  2070.  
  2071.  
  2072.  Voice Notes Playback Diskette Copy Now Completed....
  2073.     
  2074.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  2075.  
  2076.            Press any key to return to the Main Menu.
  2077.  
  2078.  
  2079.  
  2080.  
  2081.  
  2082.   @Pause
  2083. @EndDisplay
  2084.  
  2085. @Goto MenuMain
  2086.  
  2087.  
  2088. MenuBB:
  2089. @EnableF1(0)
  2090. @If (!@DriveExists(C))
  2091.     @Display
  2092.        This program requires a Hard Disk Drive to complete this copy.
  2093.  
  2094.       @Pause
  2095.     @Goto MenuMain
  2096.     @EndDisplay
  2097. @EndIf
  2098.  
  2099. @DefineDisk 
  2100.  @Label = "Disk #1"
  2101.  @BeginLib FAHDRVVA.001 
  2102.   @F ovnplay.exe   @O C:\Fahrenva\temp\*.*  
  2103.   @F speaker.drv   @O C:\Fahrenva\temp\*.*  
  2104.   @F disk.id       @O C:\Fahrenva\temp\*.*  
  2105.   @F installc.dat  @O C:\Fahrenva\temp\install.dat  
  2106.   @F installc.hlp  @O C:\Fahrenva\temp\install.hlp  
  2107.   @F copyb.bat     @O C:\Fahrenva\temp\MAKEDISK.BAT  
  2108.  
  2109.  @EndLib
  2110.  @F finstall.exe   @O C:\fahrenva\temp\install.exe 
  2111. @EndDisk
  2112.  
  2113. @Display                    
  2114.  @Cls
  2115.   @System "C:\\fahrenva\\temp\\makedisk.bat"
  2116.  @Cls
  2117.  @Help ("@ExePath\\install.hlp", "HelpCopy", "EndCopy")
  2118.  @Cls
  2119.  
  2120.  
  2121.  
  2122.  
  2123.  
  2124.  
  2125.  Voice Notes Playback Diskette Copy Now Completed....
  2126.     
  2127.     To repeat, just type "MAKEDISK" from the \FAHRENVA\TEMP Subdirectory.
  2128.  
  2129.            Press any key to return to the Main Menu.
  2130.  
  2131.  
  2132.  
  2133.  
  2134.  
  2135.   @Pause
  2136. @EndDisplay
  2137.  
  2138. @Goto MenuMain
  2139.